home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 03 - 1987 / 03.02 Feb 87 / Basic Benchmarks / File I⁄O / random put < prev    next >
Encoding:
Text File  |  1986-10-27  |  476 b   |  29 lines  |  [TEXT/MSBB]
  1. PRINT "Random I/O- PUT"
  2. PRINT "5000 Iterations"
  3.  
  4. start = TIMER   ' calculate the overhead
  5. FOR i% = 1 TO 5000
  6. NEXT i%
  7. finish = TIMER
  8. overhead = finish - start
  9.  
  10. OPEN "benchmarks:Gregl.dat" AS #1 LEN = 10
  11. FIELD #1, 10 AS a$
  12. LSET a$ = "123456789"
  13.  
  14. start = TIMER
  15. FOR i% = 1 TO 5000
  16.     PUT #1,i%
  17. NEXT i%
  18.  
  19. finish = TIMER
  20. CLOSE #1
  21.  
  22. PRINT "finish = ";finish
  23. PRINT "start  = ";start
  24. PRINT "Overhead = ";overhead
  25.  
  26. PRINT ((finish - start)-overhead); " seconds"
  27. WHILE INKEY$ = "" : WEND
  28.  
  29.